#!/usr/bin/env perl6

sub prefix:<QA>($q) {
	say "Question : $q";
}

QA "Are you ready ?";

sub infix:<count>(Int $n, Block $f) {
	for ^$n {
		$f();
	}
}

3 count -> {say "Hello Infix"};

say [+] 1, 2 ... ^ 101;


say [//] Nil, Any, False, 1, 5;

my @list = 1, 3, 9 ... * > 30; # you can use a predicate
                               # (with the Whatever Star, here).

                               say @list;